﻿
Imports xmlctrl
Imports xhtmlctrl
Imports webctrl

Public Class writerpage
    Inherits controlProcessor

    Public Const _pathidentity As String = "/wrt"

    Public Overrides Function pathidentity() As String
        Return _pathidentity
    End Function

    Protected Overrides Function processImpl(ByVal context As httpContext, ByRef control As xmlcontrol) As Boolean
        Dim page As xhtmlpage = Nothing
        page = context.createControl(New xhtmlpage())
        page.addcsslink(cssrequest.generateCssfileLinkUrl("wp.css"))
        page.title().text = context.string(stringId.WRITER_PAGE_TITLE)

        page.body().addchild(header.generateInstance(page))
        addwriter(context, page, page.body(), True)

        control = page
        Return True
    End Function
End Class
